home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / dist / scripts / starcall / mt_batch.bat next >
Encoding:
DOS Batch File  |  1997-10-26  |  6.0 KB  |  235 lines
  1. ; MT_BATCH.BAT
  2. ; Batch zum automatischen Einloggen in MAUS-Boxen mit Maustausch
  3. ; Das Passwort muž auf Shift-F1 liegen. Weitere Variablen (Mausname, Pfade)
  4. ; in diesem Script ab ca. Zeile 16 anpassen!
  5. ;
  6. ;                Fehlermeldungen in Dialog Modemkommandos  eintragen!
  7. ;                #1 No Carrier
  8. ;                #2 Busy
  9. ;                #3 Delayed (Standard: No Dialtone)
  10. ;                #4 No Answer (Standard: Error; auch bei Abbruch von Dial)
  11. ;
  12. ; Entstanden aus dem gleichnamigen Rufus-Batch von Mathias Weber @ S3
  13. ; ----------------------------------------------------------------------
  14. ; Konfiguration
  15. ; ----------------------------------------------------------------------
  16. new
  17. ; alle Variablen l”schen
  18. ;
  19. ; ab hier die passenden Pfade einsetzen!
  20. $infile := d:\upload\infile.zip                
  21. rem Dateiname des Infiles
  22. $outfile := d:\download\outfile.zip
  23. rem Dateiname des Outfiles, derzeit nicht genutzt
  24. rem wird vom ZMODEM in den in Starcall eigestellten Pfad geschrieben
  25. $modres := "atz"
  26. rem Modem-Reset
  27. $anwahl := 09232-91031
  28. rem Anwahlstring 
  29. $mausname := WUN
  30. rem fr log-Datei
  31. $loginname := MausTauschEkkehard Flessa
  32. rem Benutzernamen anpassen, MausTausch stehenlassen!
  33. rem das muž so hintereinander stehen, weil wait auf den Benutzernamen
  34. rem nicht klappt (kommt wohl zu schnell)
  35. $conlog := Connect to MAUS Wunsiedel
  36. rem Log-Eintrag bei Connect; an angew„hlte Maus anpassen
  37. anwmax := 60
  38. rem Maximale Zahl der Anwahlversuche
  39. anwver := 1
  40. rem Z„hler init
  41. leave 60
  42. rem wartezeit bei "wait" 60 Sekunden
  43. ;-----------------------------------------------------------------------
  44. ;Startbildschirm anzeigen
  45. ;-----------------------------------------------------------------------
  46. echo "@27E"
  47. echo "@27E"
  48. echo
  49. echo "            Batchprogramm fr automatischen MausTausch mit Starcall           "
  50. echo "                                 Version 0.52ž                                "
  51. echo "              (C) Ekkehard Flessa AT WUN - Abbruch mit [Control]              "
  52. echo
  53. echo
  54. echo
  55. ;-----------------------------------------------------------------------
  56. ;auf altes Outfile testen
  57. ;-----------------------------------------------------------------------
  58. if exist $outfile
  59. alert "[1][Es ist noch ein altes OUTFILE vorhanden][Abbruch]!"
  60. log $mausname ^ Batchende wg. altem Outfile
  61. end
  62. ; Batch abbrechen
  63. endif
  64. ; ----------------------------------------------------------------------
  65. ; MAUS anw„hlen
  66. ; ----------------------------------------------------------------------
  67. :10
  68. echo "@27H"
  69. ;Cursor in obere linke Ecke
  70. putline
  71. putline
  72. putline
  73. putline
  74. putline
  75. putline
  76. putstring "                        Anwahlversuch Nr. "
  77. putint anwver
  78. echo "  "
  79. echo "                     MAUS Wunsiedel wird angew„hlt ...                     "
  80. echo
  81. putstring "--- Modem: ----------------------------------------------------"
  82. echo "-----------------"
  83. echo 
  84. print $modres
  85. wait "OK"
  86.  
  87. :11
  88. D := dial $anwahl
  89. putline
  90. putline
  91. putline
  92. putstring "Rckmeldung von DIAL: "
  93. putint D
  94. putstring "  "
  95. putline
  96. if D=1 then goto 20 
  97. ; CONNECT erfolgt :-)
  98. ;
  99. ;Workaround: Werte fr Vergleich quadrieren
  100. DUMM := D * D
  101.  
  102. if DUMM = 1 
  103. goto 12 
  104. ; No Carrier, z.B. Maus abgestrzt oder Anwahl unterbrochen
  105. endif
  106.  
  107. if DUMM = 4
  108. goto 13 
  109. ; leider belegt :-(
  110. endif
  111.  
  112. if DUMM = 9 
  113. goto 14 
  114. ; auch bei delayed Fehlermeldung ausgeben und weitermachen
  115. endif
  116.  
  117. if DUMM = 16 
  118. goto 15 
  119. ; no Answer, Nach Abheben keine Antwort vom Fernmodem 
  120. endif
  121.  
  122. echo "unbekannte Modemrckmeldung:"
  123. putstring "Status: "
  124. log $mausname ^ : unbekannte Modemrckmeldung
  125. putint D
  126. end
  127.  
  128. :12
  129. ;Fehlerbehandlung "no Carrier" 
  130. anwver := anwver+1
  131. if anwver>anwmax then goto 16
  132. echo 
  133. echo "MAUS hebt nicht ab oder Leitungsst”rung - bitte warten ..."
  134. echo 
  135. log $mausname ^: No Carrier
  136. leave 30
  137. wait "ring"
  138. leave 60
  139. if (D > 0) then pause 120
  140. ; 2 Minuten warten, falls es gel„utet hat
  141. goto 10
  142.  
  143. :13
  144. ;Fehlerbehandlung "busy"
  145. anwver := anwver+1
  146. if anwver>anwmax then goto 16
  147. echo "MAUS ist zur Zeit belegt - bitte warten ...               "
  148. echo 
  149. log $mausname ^ : Besetzt
  150. leave 26
  151. D := wait "ring"
  152. leave 60
  153. if (D > 0) then pause 120
  154. ; 2 Minuten warten, falls es gel„utet hat
  155. goto 10
  156.  
  157. :14
  158. ;Fehlerbehandlung "delayed"
  159. ;anwver := anwver+1
  160. ;if anwver>anwmax then goto 16
  161. echo "Modem ist noch nicht soweit - bitte warten ...            "
  162. echo 
  163. log "delayed"
  164. leave 15
  165. D := wait "ring"
  166. leave 60
  167. if (D > 0) then pause 120
  168. ; 2 Minuten warten, falls es gel„utet hat
  169. goto 10
  170.  
  171. :15
  172. ;Fehlerbehandlung "No Answer"
  173. ;kommt auch, wenn man den DIAL-Dialog per CONTROL unterbrochen hat
  174. anwver := anwver+1
  175. if anwver>anwmax then goto 16
  176. echo "Verbindung hat nicht geklappt - bitte warten ..."
  177. echo 
  178. log $mausname ^: No Answer
  179. leave 20
  180. D := wait "ring"
  181. leave 60
  182. if (D > 0) then pause 120
  183. ; 2 Minuten warten, falls es gel„utet hat
  184. goto 10
  185.  
  186.  
  187. :16
  188. ;-----------------------------------------------------------------------
  189. ;zu oft Besetzt
  190. ;-----------------------------------------------------------------------
  191. echo "Maximale Anzahl der W„hlversuche berschritten"
  192. log "Batch abgebrochen wg. šberschreitung Maximalanzahl W„hlversuche"
  193. end
  194. :20
  195. ;-----------------------------------------------------------------------
  196. ;Einloggen und Tauschen
  197. ;-----------------------------------------------------------------------
  198. log $conlog
  199. echo 
  200. bell 0
  201. echo "Batchprogramm fr automatischen MausTausch - Abbruch mit ESC"
  202. echo "------------------------------------------------------------"
  203. putstring "Connect nach "
  204. putint anwver
  205. echo " Anwahlversuch(en)"
  206. echo
  207. echo
  208.  
  209.  
  210. ; ab hier geht es zur Sache :-)
  211. ; der Batch ab hier lieže sich auch standalone z.B. als Automatik-Batch
  212. ; bei der Telefonnummer angeben. Die verwendeten Variablen $loginname, $F11
  213. ; (Funktionstaste) und $infile mssen natrlich auch definiert sein.
  214.  
  215. WAIT (J/N) 
  216.  
  217. PRINT $loginname
  218.  
  219. WAIT Password
  220. PRINT $F11
  221. leave 10
  222. WAIT Protokoll
  223.  
  224. WRITE Z
  225.  
  226. WAIT start
  227. pause 1
  228.  
  229. UPLOAD $infile
  230.  
  231. ; leave 480
  232. ; WAIT start
  233. ; DOWNLOAD $outfile
  234. END
  235.